home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / comp / primops / aliases.t next >
Encoding:
Text File  |  1989-06-30  |  3.2 KB  |  78 lines
  1. (herald aliases (env tsys (t3_primops open)))
  2.  
  3. ;;; Copyright (c) 1985 Yale University
  4. ;;;     Authors: N Adams, R Kelsey, D Kranz, J Philbin, J Rees.
  5. ;;; This material was developed by the T Project at the Yale University Computer 
  6. ;;; Science Department.  Permission to copy this software, to redistribute it, 
  7. ;;; and to use it for any purpose is granted, subject to the following restric-
  8. ;;; tions and understandings.
  9. ;;; 1. Any copy made of this software must include this copyright notice in full.
  10. ;;; 2. Users of this software agree to make their best efforts (a) to return
  11. ;;;    to the T Project at Yale any improvements or extensions that they make,
  12. ;;;    so that these may be included in future releases; and (b) to inform
  13. ;;;    the T Project of noteworthy uses of this software.
  14. ;;; 3. All materials developed as a consequence of the use of this software
  15. ;;;    shall duly acknowledge such use, in accordance with the usual standards
  16. ;;;    of acknowledging credit in academic research.
  17. ;;; 4. Yale has made no warrantee or representation that the operation of
  18. ;;;    this software will be error-free, and Yale is under no obligation to
  19. ;;;    provide any services, by way of maintenance, update, or otherwise.
  20. ;;; 5. In conjunction with products arising from the use of this material,
  21. ;;;    there shall be no use of the name of the Yale University nor of any
  22. ;;;    adaptation thereof in any advertising, promotional, or sales literature
  23. ;;;    without prior written consent from Yale in each case.
  24. ;;;
  25.  
  26. ;;; Standard name abbreviations
  27.  
  28. (define-constant char     string-head)
  29. (define-constant chdr     string-tail)
  30. (define-constant chdr!    string-tail!)
  31. (define-constant nthchdr  string-nthtail)
  32. (define-constant nthchdr! string-nthtail!)
  33. (define-constant nthchar  string-elt)
  34.  
  35. (define-constant fx+   fixnum-add)
  36. (define-constant fx-   fixnum-subtract)
  37. (define-constant fx*   fixnum-multiply)
  38. (define-constant fx/   fixnum-divide)
  39. (define-constant fx1+  fixnum-add1)
  40. (define-constant fx-1+ fixnum-subtract1)
  41. (define-constant fx=   fixnum-equal?)
  42. (define-constant fx<   fixnum-less?)
  43. (define-constant fx>   fixnum-greater?)
  44. (define-constant fxn=  fixnum-not-equal?)
  45. (define-constant fx>=  fixnum-not-less?)
  46. (define-constant fx<=  fixnum-not-greater?)
  47.  
  48. (define-constant fx-zero?  fixnum-zero?)
  49. (define-constant fx-abs    fixnum-abs)
  50. (define-constant fx-rem    fixnum-remainder)
  51. (define-constant fx-negate fixnum-negate)
  52. (define-constant fx-ior    fixnum-logior)
  53. (define-constant fx-and    fixnum-logand)
  54. (define-constant fx-xor    fixnum-logxor)
  55. (define-constant fx-not    fixnum-lognot)
  56. (define-constant fx-ash    fixnum-ash)
  57. (define-constant fx-ashl   fixnum-ashl)
  58. (define-constant fx-ashr   fixnum-ashr)
  59.  
  60. (define-constant vref    vector-elt)
  61. (define-constant bref-8-u  mref-8-u)
  62. (define-constant bref-8-s  mref-8-s)
  63. (define-constant bref-16-u  mref-16-u)
  64. (define-constant bref-16-s  mref-16-s)
  65. (define-constant bref    bref-8-u)
  66. (define-constant bref-8  bref-8-s)
  67. (define-constant bref-16 bref-16-s)
  68. (define-constant bref-32 mref-integer)
  69. ;++(define-constant bref-pointer mref-32)
  70. (define-constant extend-elt extend-pointer-elt)
  71.  
  72. ;;; Non value returns
  73.  
  74. (define-integrable (no-value) (return))
  75.  
  76. (define-constant proclaim enforce)
  77.  
  78.